home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE15 / TIPTRIX / LISTING1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1996-10-15  |  244 b   |  13 lines

  1. uses {...} Controls;
  2. ...
  3. Procedure CreateModal(FormClass: TFormClass);
  4. begin
  5.   Screen.Cursor := crHourglass;
  6.   with FormClass.Create(Application) Do
  7.   Try
  8.     Screen.Cursor := crDefault ;
  9.     ShowModal
  10.   Finally
  11.     Free
  12.   end
  13. end;